home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 June / Ahoy_Magazine_88-06_1988_Double_L.d64 / Block Disp. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  591b  |  25 lines
  1. 100 rem* block displayer -shawn k. smith
  2. 105 print"[147]"
  3. 110 h$="0123456789abcdef":f$=chr$(18)+":
  4. 120 [133]"output to printer (y/n)";a$
  5. 130 [159]15,8,15:[159]8,8,8,"#"
  6. 140 dv[178]4[170](a$[179][177]"y"):[159]dv,dv
  7. 150 [133] "track, sector (dec)";t,s
  8. 160 [141]230:[129]d[178]1[164]32:s$[178]f$:[141]270
  9. 170 [129]t[178]1[164]8:[161]#8,b$:a[178][198](b$[170][199](0))
  10. 180 [141]300:[139]a[177]127[167]a[178]a[175]128
  11. 190 [139]a[177]95[176]a[179]32[176]a[178]34[167]a[178]46
  12. 200 s$[178]s$[170][199](a):[152]dv,d$" ";:c[178]c[170]1
  13. 210 [130]:[152]dv,""s$:[130]:c[178]0
  14. 220 [137]260
  15. 230 [152]15,"u1:";8;0;t;s
  16. 240 [132]15,a,b$,c,d:[139]a[178]0[167][142]
  17. 250 [153]a,b$,c;d
  18. 260 [152]dv:[160]dv:[160]8:[160]15:[128]
  19. 270 a[178]c:[141]300:[152]dv,"00"d$": ";
  20. 280 [161]a$:[139]a$[178]""[167][142]
  21. 290 [161]a$:[145] 1[170](a$[179][177]"")[137]290:[142]
  22. 300 h[178][181](a[173]16):l[178]a[171]h[172]16
  23. 310 d$[178][202](h$,h[170]1,1)[170][202](h$,l[170]1,1)
  24. 320 [142]
  25.